   

   /   /  - 

  TMultiPartEdit :

      (Edit Control)    .

 (Properties):

 BackgroundColor
	          .
	: OLE_COLOR
	 :      .

 FieldColor
	    .
	: OLE_COLOR
	 :       (vbWindowBackground).

 FieldCount
	    .   1    .
	: Long
	 : 1.
	             (Text)          .                 .

 FieldLength
	    .             .    1  25.
	: Long
	 : 3.

 FieldTextAlignment
	       .
	: Integer      AlignmentConstants.
	 : vbCenter        .

 ReadOnly
	-:           .
	: Boolean
	 : False        .

 RTLLayout
	       --ѡ                 .
	: Boolean
	 :    RightToLeft    .

 RTLReading
	      (      )  -- ( ).
	: Boolean
	 :    RightToLeft    .

 Separator
	        .      Text      .
	: String
	 :   ( - ).
	    (String)                  .

 SizeUnit
	              (     )
	: String
	 :    ( W ).
	    (String)                      .
	     (SizeUnit)   9     (FieldLength)   5         5 .

 Text
	     .             ( Separator).
	: String
	 :  .
	                  (  Separator).
	             GetText    gtmEditFieldsOnly .

 TextColor
	      ʡ     .
	: OLE_COLOR
	 :   (ForeColor)    .

 UseTabs
	      Tab      .
	: Boolean
	 : False     Tab                     .
	      True    Tab                ˡ  .
	      False  True              .

====================================================================================================================

 (Methods)

 GetText
	     (  Text)
	:
		Function GetText(TextMode As TGetTextMode) As String

		  TextMode     :
			 gtmEditFieldsOnly             .
			 gtmIncludeSeparators              (  Text).

 GetField
	        (  10/02/2012).
	:
		Function GetField(AIndex As Long) As String

		  AIndex      (     1).        .

 SetField
	       (  10/02/2012).
	:
		Sub SetField(AIndex As Long, AValue As String)

		  AIndex      (     1).        .
		  AValue      .

 SetFieldLength
	   -    -     (  10/02/2012).
	:
		Sub SetFieldLength(AIndex As Long, ALength As Long)

		  AIndex      (     1).        .
		  ALength      .
		  ALength     1  25.             .

 LockField
	      -ء       (  10/02/2012).
	:
		Sub LockField(AIndex As Long)

		  AIndex      (     1).        .

 UnlockField
	         ɡ      (  10/02/2012).
	:
		Sub UnlockField(AIndex As Long)

		  AIndex      (     1).        .

====================================================================================================================

 (Events)

               (  FieldIndex):
Change  Click  KeyDown  KeyUp  KeyPress  MouseDown  MouseUp  MouseMove  FieldEnter  FieldExit.

====================================================================================================================

 :
	         .
	        .
	                     .

====================================================================================================================

       .
